home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / misc / amag / sh9301c.lha / Oberon(S.67) / Listing6.mod < prev    next >
Text File  |  1993-01-22  |  768b  |  24 lines
  1. MODULE OhneProcs; (* Ungeschickt *)
  2. IMPORT
  3.   io;
  4. VAR
  5.   Jahr, Monat, Tag, Stunde, Minute: LONGINT;
  6. BEGIN
  7.   REPEAT
  8.     io.WriteString ("Bitte Jahr eingeben:   ");
  9.   UNTIL io.ReadInt (Jahr) AND (Jahr >= 0) AND (Jahr <= 2100);
  10.   REPEAT
  11.     io.WriteString ("Bitte Monat eingeben:  ");
  12.   UNTIL io.ReadInt (Monat) AND (Monat >= 1) AND (Monat <= 12);
  13.   REPEAT
  14.     io.WriteString ("Bitte Tag eingeben:    ");
  15.   UNTIL io.ReadInt (Tag) AND (Tag >= 1) AND (Tag <= 31);
  16.   REPEAT
  17.     io.WriteString ("Bitte Stunde eingeben: ");
  18.   UNTIL io.ReadInt (Stunde) AND (Stunde >= 0) AND (Stunde <= 23);
  19.   REPEAT
  20.     io.WriteString ("Bitte Minute eingeben: ");
  21.   UNTIL io.ReadInt (Minute) AND (Minute >= 0) AND (Minute <= 59);
  22.   (* ... der Rest, der diese Daten verarbeitet *)
  23. END OhneProcs.
  24.